gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGadmins.asp
<!-- #INCLUDE FILE="login.asp" -->
<head>
<meta http-equiv="Content-Language" content="zh-cn">
</head>
<%
'///*********************************
' 管理员列表程序
'********************************///
Call AdminQx(1,"") '' 判断权限
action=trim(request("action"))
Dim dqw
Select Case action
Case "del"
dqw="已有管理员"
Call Heads_GGadmin(dqw)
call admins_del(trim(request("id")))
Case "edit"
dqw="已有管理员"
Call Heads_GGadmin(dqw)
call admins_edit(trim(request("id")))
Case else
dqw="已有管理员"
Call Heads_GGadmin(dqw)
Call admins_main()
end Select
'//************************************************
' 修改管理员
'************************************************//
Sub admins_edit(id)
if Len(trim(request("admin")))<1 or Len(trim(request("passwd")))<1 or Len(trim(request("person")))<1 then '' 简易判断是否为空
response.write "<table width=580 border=1 cellpadding=0 bordercolor=#C0C0C0 bgcolor=#ffffff height=200 style='border-collapse: collapse'><tr><td align=center>请输入各项内容后进行修改<BR><BR><a href='?'>[返回]</a></td></tr></table>"
else
conn.execute("Update Admin set admin='"&trim(request("admin"))&"',passwd='"&trim(request("passwd"))&"',person='"&request("person")&"' where aid="&id)
call admins_main()
end if
End Sub
'//************************************************
' 删除管理员
'************************************************//
Sub admins_del(id)
conn.execute("Delete from Admin where aid="&id)
call admins_main()
End Sub
'//************************************************
' 已有管理员列表
'************************************************//
Sub admins_main()
%><div align="center">
<table width="680" id="table1" border=1 cellpadding=2 bordercolor=#C0C0C0 bgcolor=#ffffff style="border-collapse: collapse">
<tr>
<td class="td1" height="30" align="center" width="30">ID</td>
<td class="td1" height="30" align="center" width="130">管理帐号</td>
<td class="td1" height="30" align="center" width="130">登陆密码</td>
<td class="td1" height="30" align="center" width="130">所有权限</td>
<td class="td1" height="30" align="center" width="150">个人资料</td>
<td class="td1" height="30" align="center" width="110">执行操作</td>
</tr>
<% Dim qxbs,pids
Rs.open "select * from Admin",conn,1,1
Do while not rs.eof
qxbs=PubFgdy(rs(3),"#",0)
pids=PubFgdy(rs(3),"#",1)
%> <tr>
<td align="center"><%=rs(0)%></td>
<td align="center">
<input type="text" name="admin" size="12" value="<%=rs(1)%>" maxlength="20"></td>
<td align="center">
<input type="text" name="passwd" size="12" value="<%=rs(2)%>" maxlength="20"></td>
<td align="center">
<textarea rows="3" name="person" cols="18"><%if PubFgdy(qxbs,",",0)="1" then response.write " 管理员设置 "%>
<%if PubFgdy(qxbs,",",1)="1" then response.write " 广告图管理 "%>
<%if PubFgdy(qxbs,",",2)="1" then response.write " 分类广告位总管（全部分类/广告位的各种管理权限/含添加删除分类）"%>
<%if PubFgdy(qxbs,",",2)="2" then
Response.write "对下列分类拥有更新、清理权限 （"
Set RsLs=Server.CreateObject("ADODB.Recordset") '开始广告分类循环
RsLs.Open "select cid,cname from class ",conn,1,1
do while not RsLs.eof
if instr(","&pids&",",","&RsLs(0)&",")>0 then response.write ""&RsLs(1)&""
RsLs.movenext
loop
RsLs.Close
Set RsLs=Nothing
Response.write "）"
end if
%></textarea></td>
<td align="center"><textarea rows="3" name="person" cols="18"><%=rs(4)%></textarea></td>
<td align="center"><a href="GGadminXiu.asp?id=<%=rs(0)%>">详情/修改</a> <%if rs(0)>1 then%><a href=javascript:Do_del('<%=rs(0)%>')>删除</a><%end if%></td>
</tr>
<%
Rs.movenext
Loop
Rs.close
%>
<script language=JavaScript>
<!--
function Do_del(data1)
{
if (confirm("此操作将删除id为 "+data1+" 的管理员！\n\n真的要删除吗？\n\n删除后将无法恢复！"))
window.location="?action=del&id="+data1
}
//-->
</script>
<tr>
<td align="center" colspan="6" height="30" class="td1"><font class=red>注：</font>ID为“1”的管理帐号不可以被删除,任何删除都是不可恢复的，请慎用</td>
</tr>
<tr>
<td align="center" colspan="6" height="30"> </td>
</tr>
</table>
</div>
<%End Sub
%>